home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / SCRNDUMP.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  670b  |  24 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '+-----------------------------
  3. '| SCRNDUMP -  Screen dump routine:
  4. '|             send screen to designated file
  5. '| CALL scrndump(num%)
  6. '+----------------------------
  7. '|   (C) InfoSoft 1986, 1988, 1988
  8. '|   ALL RIGHTS RESERVED
  9. '+----------------------------
  10. SUB screendump (num%) STATIC
  11.     DEFINT A-Z
  12.     STATIC x, y, c, c$
  13.  
  14.     FOR x = 1 TO 24                    ' Big Deal huh?
  15.        c$ = ""
  16.        FOR y = 1 TO 79
  17.           c = SCREEN(x, y)             ' READSCREEN would be quicker
  18.           c$ = c$ + CHR$(c)            ' but all GLIB routines are StandAlone
  19.        NEXT y
  20.        PRINT #num, c$
  21.     NEXT x
  22.  
  23. END SUB
  24.